home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / utilities / amb player.amos / amb player.amosSourceCode next >
Encoding:
AMOS Source Code  |  1991-03-14  |  3.8 KB  |  176 lines
  1. '
  2. ' Amb Play v2.0
  3. '
  4. '  The Amos Music Banks Collection - THE BEST music for use
  5. '  in your AMOS programs.
  6. '
  7. '  Ripped from the hearts of the finest demos available by Gaz...... 
  8. '
  9. '  If you want a piece of sound/noise tracker music ripping from 
  10. '  
  11. '  a demo, send it to me and I'll have a go at it for you. 
  12. '
  13. '
  14. '
  15. '  GARY SHILVOCK 
  16. '  118, Uplands Avenue 
  17. '  Rowley Regis, 
  18. '  Warley
  19. '  West Mids.B65 9PX 
  20. '
  21. 'The equalizer,by the way, is a modified version of pete hickmans... 
  22. 'converted to 8 channels by me.
  23. Hide 
  24. Global NAME$
  25. Screen Open 0,352,100,2,Lowres : Curs Off : Cls 0 : 
  26. Double Buffer 
  27. Screen Display 0,112,265,,
  28. Led Off 
  29. Amreg(0)=12
  30. A$="   Begin: Let R0=V(0) ; If R0=0 Jump Begin ;"
  31. A$=A$+"Move 0,0-R0,RA/2 ; Move 0,R0,RA/2 ; Jump Begin ; "
  32. B$="   Begin: Let R0=V(1) ; If R0=0 Jump Begin ;"
  33. B$=B$+"Move 0,0-R0,RA/2 ; Move 0,R0,RA/2 ; Jump Begin ; "
  34. C$="   Begin: Let R0=V(2) ; If R0=0 Jump Begin ;"
  35. C$=C$+"Move 0,0-R0,RA/2 ; Move 0,R0,RA/2 ; Jump Begin ; "
  36. D$="   Begin: Let R0=V(3) ; If R0=0 Jump Begin ;"
  37. D$=D$+"Move 0,0-R0,RA/2 ; Move 0,R0,RA/2 ; Jump Begin ; "
  38. For A=1 To 8
  39.    Bob A,(A*49)-49,40,1
  40. Next 
  41. For LOP=1 To 8
  42.    Channel LOP To Bob LOP
  43. Next LOP
  44. Amal 1,A$ : Amal 2,B$ : Amal 3,C$ : Amal 4,D$
  45. Amal 5,A$ : Amal 6,B$ : Amal 7,C$ : Amal 8,D$
  46. Set Rainbow 0,1,64,"","",""
  47. Restore HUES
  48. For A=0 To 47 Step 2
  49.    Read SHADE
  50.    Rain(0,A)=SHADE
  51.    Rain(0,A+1)=SHADE
  52. Next 
  53. Rainbow 0,0,264,48
  54. HUES:
  55. Data $F00,$F10,$F20,$F30,$F40,$F50,$F60,$F70,$F80,$F90,$FA0,$FB0,$FC0,$FD0,$FE0,$FF0
  56. Data $FF1,$FF2,$FF3,$FF4,$FF5,$FF6,$FF7,$FF8,$FF9,$FFA,$FFB,$FFC,$FFD,$FFE,$FFF
  57. Set Rainbow 1,1,220,"","",""
  58. OFFSET=0 : HUE=0
  59. For A=15 To 30
  60.    Rain(1,A)=HUE : HUE=HUE+$110
  61. Next 
  62. For A=31 To 175
  63.    Rain(1,A)=$FF0
  64. Next 
  65. HUE=$FF0
  66. For A=175 To 199
  67.    Rain(1,A)=HUE : HUE=HUE-$110
  68. Next 
  69. Screen Open 1,320,200,2,0 : Curs Off : Cls 0
  70. Screen Display 1,132,,,180
  71. Rainbow 1,1,40,220
  72. Amal On 
  73. Palette $0,$FFF
  74. Def Scroll 1,0,0 To 320,20,-1,-9
  75. Def Scroll 2,0,20 To 320,40,-1,-8
  76. Def Scroll 3,0,40 To 320,60,1,-7
  77. Def Scroll 4,0,60 To 320,80,-1,-6
  78. Def Scroll 5,0,80 To 320,100,1,-5
  79. Def Scroll 6,0,100 To 320,120,0,-4
  80. Def Scroll 7,0,120 To 320,140,0,-3
  81. Def Scroll 8,0,140 To 320,160,0,-2
  82. Def Scroll 9,0,160 To 320,180,0,-2
  83. Def Scroll 10,0,180 To 320,200,0,-1
  84. Autoback 0 : Bob Update Off : Synchro Off 
  85. Restore TXT
  86. Do 
  87.    MUS
  88.    Repeat 
  89.       Read TXT$
  90.       TXT$=Upper$(TXT$)
  91.       If TXT$="TUNE NAME"
  92.          TXT$=NAME$
  93.       End If 
  94.       If TXT$="END OF DATA"
  95.          Restore TXT
  96.          Read TXT$
  97.          TXT$=Upper$(TXT$)
  98.       End If 
  99.       Locate 0,24 : Centre TXT$
  100.       For A=0 To 8
  101.          Wait Vbl 
  102.          For B=1 To 10
  103.             Scroll B
  104.          Next 
  105.          Wait Vbl : Synchro : Update 
  106.       Next 
  107.    Until Mouse Click
  108. Loop 
  109. Procedure MUS
  110.    Show 
  111.    Change Mouse 2
  112.    Rainbow 1,0,0,0
  113.    NAME$=Fsel$("","","Select Music Bank To Load")
  114.    If NAME$<>""
  115.       Load NAME$
  116.       Music 1
  117.    End If 
  118.    Hide 
  119.    Rainbow 1,1,40,220
  120. End Proc
  121. TXT:
  122. Data "Amb Disk V"
  123. Data " "
  124. Data "Now Playing"
  125. Data "tune name"
  126. Data " "
  127. Data "Mini Player"
  128. Data "Written By"
  129. Data "G.Shilvock"
  130. Data " "
  131. Data "Many Thanks"
  132. Data "to all the people"
  133. Data "& groups whose"
  134. Data "music appears"
  135. Data "on these disks."
  136. Data " "
  137. Data " "
  138. Data " "
  139. Data " "
  140. Data "If you have a demo you"
  141. Data "want the music from"
  142. Data "but can't access the music"
  143. Data "send it to me, and i'll"
  144. Data "have a go,"
  145. Data "(providing its sound/noisetracker)"
  146. Data " "
  147. Data " "
  148. Data "Greetings To"
  149. Data " "
  150. Data " "
  151. Data "Matt (Lemming Fiend) "
  152. Data "Steve Bennett"
  153. Data "Sandra"
  154. Data "mark cox"
  155. Data "Arc angel"
  156. Data "spadge"
  157. Data "sentinel"
  158. Data "wierd science"
  159. Data "gary fearn"
  160. Data "Len Tucker"
  161. Data "Gareth Lancaster"
  162. Data "nadeem"
  163. Data "curos + stavros"
  164. Data "syntex"
  165. Data "peter hickman"
  166. Data "francois"
  167. Data "aaron "
  168. Data " "
  169. Data " "
  170. Data " "
  171. Data " "
  172. Data " "
  173. Data " "
  174. Data " "
  175. Data " "
  176. Data "end of data"